      FUNCTION FS16(J, K, S)
      CHARACTER*(16) :: FS16, S
      INTEGER J, K
      FS16 = S(J:K)
      RETURN
      END FUNCTION FS16
